home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / reftrckr.sit / RT 1.6 / card_136442.txt < prev    next >
Text File  |  1990-04-19  |  2KB  |  65 lines
  1. -- card: 136442 from stack: in.6
  2. -- bmap block id: 2171
  3. -- flags: 4000
  4. -- background id: 136161
  5. -- name: TitleCard
  6. ----- HyperTalk script -----
  7. on idle
  8.   screenCheck
  9.   set cursor to Rice
  10.   wait 30 ticks
  11.   Play "Hoot"
  12.   set icon of bkgnd button id 1 to "Owl2"
  13.   set icon of bkgnd button id 1 to "Owl3"
  14.   set icon of bkgnd button id 1 to "Owl4"
  15.   set icon of bkgnd button id 1 to "Owl5"
  16.   set icon of bkgnd button id 1 to "Owl6"
  17.   wait 10 ticks
  18.   set icon of bkgnd button id 1 to "Owl5"
  19.   set icon of bkgnd button id 1 to "Owl4"
  20.   set icon of bkgnd button id 1 to "Owl3"
  21.   set icon of bkgnd button id 1 to "Owl2"
  22.   set icon of bkgnd button id 1 to "Owl1"
  23.  
  24.   wait 35 ticks
  25.  
  26.   set icon of bkgnd button id 1 to "Owl2"
  27.   set icon of bkgnd button id 1 to "Owl3"
  28.   set icon of bkgnd button id 1 to "Owl4"
  29.   set icon of bkgnd button id 1 to "Owl5"
  30.   set icon of bkgnd button id 1 to "Owl6"
  31.   wait 10 ticks
  32.   set icon of bkgnd button id 1 to "Owl5"
  33.   set icon of bkgnd button id 1 to "Owl4"
  34.   set icon of bkgnd button id 1 to "Owl3"
  35.   set icon of bkgnd button id 1 to "Owl2"
  36.   set icon of bkgnd button id 1 to "Owl1"
  37.   wait 30 ticks
  38.  
  39.   if the freeSize of this stack > 35000 then
  40.     put "Compacting the stack..." into cd field "Screen"
  41.     doMenu "Compact Stack"
  42.     put empty into cd field "Screen"
  43.   end if
  44.  
  45.   go next
  46. end idle
  47.  
  48.  
  49. -- part 1 (field)
  50. -- low flags: 01
  51. -- high flags: 0001
  52. -- rect: left=125 top=97 right=115 bottom=374
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Screen
  61.  
  62.  
  63. -- part contents for background part 2
  64. ----- text -----
  65. Sunday, May 24, 2015